 var mes: integer;
 Begin
     mes := 3;
     case mes of
      '1': ;
      '2': ;
      '3': ;
      '4': ;
      '5': ;
      '6': ;
      '7': ;
      '8': ;
      '9': ;
     '10': ;
     '11': ;
     '12': 
     else
     end; 
 End.
